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DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


aw 
® 
® 
* 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE © 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
*® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 
*® 
® 
* 
® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: RMS 


Abstract: 
et moduie contains support routines that encode (build) portions of 
A DAP message. Included are routines to build a message header and to 
convert binary data to extensible or image format. 


Environment: VAX/VMS, executive mode 
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; Author: James A. Krycka, Creation Date: 16-JUN-1977 

Modified By: . | 
0 v03-001 JAKO145 _ JA Krycka 12-APR=1984_ | 
. Track changes in DAP message building algorithm. 
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ASSUME NWASQ_FLG EQ 0 


Own Storage: 
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-SBTTL NTS$BUILD_HEAD = BUILD DAP MESSAGE HEADER 


++ 

NTSBUILD_HEAD = obtains a buffer and constructs a DAP message header in it. 
NTSBUILD_TAIL is a companion routine that is called after the message 
body has ~e formed to update the length value in the header. Both 
l=byte and 2-byte length fields are supported for DAP message blocking. 


Note that the algorithm for building the header does not support the 
use of optional fields such as STREAMID or SYSPEC. 


Calling Sequence: 
BSBW NTSBUILD_HEAD 
Input Parameters: 


6 
i 
8 : 
B1 3 
1 
HE : 
84; 
i | 
: 
88 : 
89 ; 
90 ; 
91; 
4 5 RO DAP message hw value 
$s 8 R7 Address of NWA (=DAP) 
32 : Implicit Inputs: | 
97 : DAPS$V_BIGBLK | 
98 ; DAP$V_MSGBLK | 
99 ; NWASQ_XMT 
100 : NWASV-LAST_MSG 
19 : Output Parameters: 
ie : R5 Address of next byte available for message body 
ie : Implicit Outputs: | 
108 ; NWASQ_BLD 
1%) 3 DAP message header is placed in the message buffer. | 
0 111 : Completion Codes: 
0 11¢ 3 
000 113; None | 
000 114; 
000 115 ; Side Effects: 
000 116; 
000 117; None 
000 118; | 
000 119 ;-- 
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1 1 :* 
1 gi ; Qn oe from NTSBUILD_HEAD the incomplete message header wilt be either 
! ? ; 4 bytes long in one of the following three formats 
000 125 ; TYPE=msg# has i TYPE=8 
0 $ 1 § 3 FLAGS=0 LAGS=2 FLAGS=6 
0 1 s TENGTHS 0 LENGTH=0 
44 : 8 3 LEN256=0 
$600 150 ; Note: The four byte format containing the extended length field is used only 
0000 131; for a DAP Data message. 
Bee 1 ¢ se= 
00G «(1 
0000 13 ASSUME DAPSV_STREAMID+1 EQ DAPS$V_LENGTH 
Bon8 ! ; ASSUME DAPSVILENGTH+1 EQ DAP$V_LEN256 
0000 138 NTSBUILD_HEAD:: 3; Entry point 
OOE8 C7 C1 0000 138 KDDL3 NWASQ_XMT(R7),- ; Compute address of first unused byte 
55 OOEC C7 0004 139 NWASQ~XMT+#4(R7) ,R5 ; in transmit buffer and return in R5 
OOF4 C7? = 55 0 0008 140 MOVL RS, wise _BLD+4(K7) 3 Update build message descriptor 
85 50 90 Q00D 141 MOVB RO, (R 3; Store DAP mogsage ’Be value 
18 67 00 0070 146 BBS SMUASY LAST _MSG,(R7),20$; Branch if this wi last message 
0014 14 : to block, thus requiring no Length 
0014 144 : field in header 
08 50 91 OO14 £145 CMPB RO, #DAPSK_DAT_MSG ; Branch if this is not a Data message 
0B 12 Q017 146 BNEQ 10$ ; (because _ > a Data message is 
0019 147 3; potentially longer than r Disa 
14 €1 0019 148 BBC #DAPS$V_BIGBLK,- ; Branch if 2=-byte yn ed " el 
06 28 A7 0018 149 DAP$Q SYSCAP(R7) , 108 3; not su ported by 
85 6 90 QO1E 150 MOVB #<<DAPS$M_LENGTH ; Store FLAGS field Radicating that 
0021 151 <DAPSA Lalbeee : an extended Length field will be 
os) 136 0>, (R5)+ : _ included 
85 B84 0021 15 CLRW (R5)+ ; Reserve space for 2 voyte length value 
0023 154 ; (to be filled in by NT$BUILD_TAIL) 
05 0023 155 RSB 3 Exit 
12 €1 0024 £156 10$: BBC #DAPSV_MSGBLK,- : Sronck if 1-byte length field is 
03 28 A7 0026 157 DAPSO SYSCAP(R7) ,20$ : not Supported by by AEE: 
85 02 90 0029 158 MOVB DAPSA_LENGTH, (R5)+ : Store FLAGS f 
85 94 002C 159 208: CLRB {Reds ; Reserve space * ; byte e len ” value 
Base 160 ; (to be filled in by TSBUILD_TAIL) 
OO02E 161 ; OR overwrite FLAGS field me zero 
002E 196 : _if message blocking is not being used 
05 O02E 16 RSB : Exit 
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NTS$BU TAIL = COMPLETE DAP MESSAGE HEA 5-SEP-1984 16:20:4 RMS.SRCINTOENCODE .MAR; 1 (5) 
-SBTTL NTSBUILD_TAIL = COMPLETE DAP MESSAGE HEADER 
: *NTSBUILD ratte = completes construction of the DAP message header that 
NTSBUILD_HEAD initiated by updating the Length value in the header. 
Both i=byte and 2-byte Length fields are supported for DAP message 
ocking. 


Note that the algorithm for building the header does not support the 
use of optional fields such as STREAMID or SYSPEC. 


aie also that the LENGTH field will be converted to a STREAMID field 
a value of zero it a i=byte Length field was allocated by 
NTSBUILD HEAD, but the message body turned out to be more than 255 
bytes long which cannot be represented in a single byte field. 
Calling Sequence: 
BSBwW NTSBUILD_TAIL 


Input Parameters: 


R5 Address of last byte of message + 1 
R7 Address of NWA (=DAP) 


Implicit Inputs: 


NWA$Q_BLD 
DAP message header 


Output Parameters: 
RO-R1 Destroyed 
Implicit Outputs: 


NWASQ 
NENGTRe oe LEN256 fields (if present) in the header are updated. 


Completion Codes: 
None 
Side Effects: 
LENGTH field may be converted to a STREAMID field with a value of zero. 
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6:20: 


++ 
gn xit from NTSBUILD_TAIL the completed tg 1 header wiil be either 
» 3, of 4 bytes long in one of the following four formats: 


TYPE=msg# 


TYPE=8 
FLAGS=0 


$= FLAGS=6 
LENGTH=size LENGTH=size0 
LEN256=sizel 


TYPE=msg# TYPE=8 
FLAGS= FLAGS=1 
STREAMID’:0 


Note: The four byte format containing the extended length field is used only 
for a DAP Data message. 


POPIPONPYINININNYNINNIPYNIPNINININONUNoPoNoNoponoponopnofponoponopnnn mm 


14 
1? 
1? 
15 
0 
4 
5 
5 ASSUME DAPS$V_STREAMID+1 EQ DAPS$V_LENGTH 
A ASSUME DAPSV_LENGTH+1 EQ DAPS$V_LEN256 
0 NTSBUILD oat 3 Entry point 
OOFO C7 55) ss OOF4 C7? CB 31 SUBL3 NWASQ_BLD+4(R7),R5,- ; Compute size of DAP message and 
3 NWA$Q_BLD(R7) ; update build descriptor 
50 OOFO C7 7D 3 MOVQ NWASQ_BLD(R7) ,RO 3 Put message descriptor in <R0,R1> 
OA EI 34 BBC #<DAPSV_LEN256+8>,- : Branch if 2-byte Length field was | 
06 61 35 (R1),1 ; not allocated in message header 
02 A1 50 04 A3 36 SuBW3 9. #4, RO, 2(R1) ; Compute size of oossane peer and 
0s $ sen : store value in <LEN256,LENGTH> field 
PY x 
09 «sé; 39 10$ BBC #<DAPSV_LENGTH+8>,- ; Branch if 1-byte length field was 
13 61 0048 40 (R1) ,308 ; not allocated in message header 
50 03 A2 004A 241 SuBw2 #3, RO : Compute size of message body | 
OOFF 8F 50 61 004D $s CMPW RO,#255 ; Branch if length of message body 
05 1A 0052 24 BGTRU 208 ; will not fit in LENGTH field 
02 Al 50 90 0054 44 MOVB RO,2(R1) 3; Update LENGTH field 
05 0058 45 RSB p Exit. 
01 Al 01 90 0059 46 208: MOVB #DAPSM_STREAMID,1(R1) ; Rewrite FLAGS field (converting 
005D 47 ; _LENGTH field into STREAMID field) 
05 005D 48 30$: RSB 3: Exit 
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NTSCVT_BN4_EXT = CONVERT BINARY TO EXTEN 5=SEP-19 6:20:44 (CRMS.SRCINTOENCODE.MAR;1 
y te -SBTTL NTSCVT_BN4_EXT = CONVERT BINARY TO EXTENSIBLE 
E 3+ 
5E 53; NISCVT BN4_EXT = converts an unsigned longword value to an extensible field 
bee 22 3 ormat and stores the result in a minimal number of bytes. 
O08E 2$ ; Calling Sequence: 
Bpee 57 ; 
OSE 258; BSBW = NTSCVT_BN4_EXT 
Boze 59 ; 
See $ 3; Input Parameters: 
Soe Ft 3 R1 Binary value to convert and store 
Boze 9 3 RS Address of next byte in buffer to store result 
O00SE 65 ; Implicit Inputs: 
OOSE 66 ; 
OO0SE 67 ; None 
OOSE 68 ; 
005E 69 ; Output Parameters: 
OOSE 270 ; 
OOSE 271; R1 Zeroed 
OOSE sf¢ 3 R5 Address of last byte of result + 1 
O05e 7a § ‘ee 
OOSE 274 ; Implicit Outputs: 
OOSE $2 3 
00SE 76; None 
005E git 3 : 
OO5E 78 ; Completion Codes: 
OOSE 79 ; 
O0O0SE 80 ; None 
O05E ms 2 
005E Ht 3; Side Effects: 
O0OSE 83 ; 
O0S5E 84 ; None 
OOSE 285 ; 
00SE seo 37° 
005E 87 
OOSE 288 NTSCVT_BN4 EXT:: ; Entry_point 
85 51 90 O0OSE 289 movB R1,(R5)+ ; Copy bits to DST byte--the high 
0061 90 ¢ Ott be corrected later 
51 7F 8F 8A 0061 91 BICB2 #*X7F,R1 : stecerd SRC bits just copied 
51 51 £9 8F 9C 0065 32 ROTL #-7,R1,R1 : Move next 7 bits into place 
07 #1 ROA 9 BEOL 10$ ; ALL cone if remaining SRC bits 
6C 94 3; are zer 
FF AS 80 BF 88 oot 95 BISB2 #*x80,-1(R5) 3; Set sutenatels bit in DST byte 
EB 11 007 96 BRB NTSCVT_BN4_EXT > and process next byte 
05 0073 297 10$: RSB 3 Exit 
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-SBTTL NTSCVT_BN8_EXT = CONVERT BINARY TO EXTENSIBLE 
++ 
NTSCVT_BN8_EXT = converts an meres quadword value to an extensible field 
format and stores the result in a minimal number of bytes. 
Note that only source bits 00-62 are used; bit 63 is ignored. 


OGOOOCOOCOCOCOOCOCOCCoCoo | 
SSN 
PPLE ES 


will_always propogate on shift 
Copy 7 bits to DST byte=--the high 
bit will be corrected later 
Discard SRC bits just copied | 
Move next 7 bits into place 
ALL done if remaining SRC bits 
| 

| 


10$: MOVB R1,(R5)+ 


BICB2 #*X7F,R1 
ASHQ #-7,R1,R1 
20$ 


are zero 
Set extensible bit in DST byte 
gone process next byte 

xi 


BISB2 #*x80,-1(R5) 
BRB 108 


3 
; 
4: 
4 z 3 
iS 09 : Calling Sequence: 
t4 309 ; BSBW = NTSCVT_BN8_EXT 
o oe 13 : Input Parameters: 
0074 18 : R1 Binary value to convert and store (low order bits) 
0074 14 ; R2 Binary value to convert and store (high order bits) 
Bae 12 : R5 Address of next byte in buffer to store result 
0074 13 : Implicit Inputs: 
0074 18 ; 
to yp 3 None 
; | 
Boe A ; Output Parameters: | 
0074 28 : RI-R2 _ Zeroed | 
Boe : 3 R5 Address of last byte of result + 1 
0074 26 : Implicit Outputs: 
0074 7; 
SE how 
0074 $5 : Completion Codes: 
0074 31 ; 
Be Hg tne 
007% 334 ; Side Effects: 
0074 6: None 
0074 73 
Sn a | 
0074 40 NTSCVT_BNB_EXT:: Entry point 
00 rt SCCRBIT #31,R2 Clear high order bit so that zero 
<3 
44 
ry 
$ 
rt 
50 
51 


1 
FF AS 80 8F 8 
EB 5 


Ses TEL en nein a aan Maat deat ieee eS 
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E ; -SBTTL NTSCVT_8N4_IMG = CONVERT BINARY TO IMAGE 
5 ;+4 
§ ; NTSCVT_BN4_IMG = converts an unsigned longwork value to an image field format 
; 8 ; a oe binary string) and stores the result in a minimal number of 
$ ytes. 
E 3 
: $9 3 Calling Sequence: 
; $¢ 3 BSBwW NTSCVT_Bt4_IMG 
° 4 rf: : Input Parameters: 
O8E 96 3 R1 Binary value to convert and store 
OBE ? 3 R5 Address of next byte in buffer to store result 
OO8E $3 : Implicit Inputs: 
443 0; 
O8E 71 ; None 
OO8E es 3 
OO8E 73 ; Output Parameters: 
OO8E 7% ; 
OO8E 73: R1 Zeroed 
OO8E z6 ; R2 Destroyed 
OO8E “7s R5 Address of last byte of result + 1 
OO8E 78 ; ¢ 
008E 79 ; Implicit Outputs: 
OO8E 80 ; 
OO08E 81: None 
OO8E Hf 3 
OO8E 83 ; Completion Codes: 
OO8E 84 ; 
O0O8E 85 ; None 
OO8E 86 ; 
OO8E 87 ; Side Effects: 
O0O8E 88 ; 
OO8E 89 ; None 
OO8E 90 ; 
OO8E 91 5-2 
OO8E 3 
OO8E 93 NTSCVT_BN4_IMG:: ; Entry point 
52 55 D0 OO8E 94 MOUL R5,R2 ; Save address of DST count byte 
85 94 0091 395 CLRB 3 (R5) 4 : Zero DST count byte 
51 0 b8e 9 TSTL R1 : Test value to convert 
OE 1 9 9 BEQL 208 ; ALL done if value is zero 
85 51 90 44 98 10$: MOVB R1,(R5)+ 3; Copy next byte to DST 
9¢ 96 9A 99 INCB (Re) 3; Increment byte counter 
1 94 9c 400 CLRB R1 ; Discard byte just copied 
51 51 F8 8F 9 9 401 ROTL #-8,R1,R1 ; Move next byte into place 
F2 12 GRA ret BNEQ 10$ ; There is more to do if any 
BOA 40 > _remaining bits are non-zero 
05 AS 404 20%: RSB ; Exit 
BRA6 405 
A6 406 - END ; End of module 
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Symbol table ate 
WASL_PROXABADR 

He seeteare . ” NAST “RDTXABADR 114 
$$nms. PB CHK = 1 NWASL-SAVE FL \¢8 
Sennen Te = g NWASL~ SUMXABADR ou 
SERmS“URODE = 00 4 NWASL” THREAD 43 
tee Stitt NWASL_XLTATTR 8 3 
a Ele i3 NWASL_XLTBUFFLG f 
yatta 000004 NWASL_XLTCN 000 
BaP Ff ESYS 000 23 NWASL XL TMAX INDX 0000234 
SAOSe FLA Mitts 1 NWASL-XLTSIZ 9000 0 

Peenit $3 0000034 NWASQ-ACS 0000244 

yas pinty NWA$Q~B1GBUF 9900170 
DAPSB“OS TYPE $6 bi NWASQ-BLD 00000F 
SPSS ST REAR 0000 WASQ-FLG 0000000 
vrata i ee hati NWA$SQ~ INODE 4s 4 
SAP ES -USRRUN 90000046 NWASQ— » 90000008 
DAP SB -VERNUM Maittdite NWASG” “LOGNAME G900028¢ 
PAP Se bat ne = 00000008 NWAS$Q-NCB 00000264 
PAPSA"BITeNT. = 00000008 NWASQ-RCV 000000E0 

eee Mid = 00000004 NWA$SQ-SAVE_DESC 00000120 
PAPSnctENeTn = 0000000 NWASQ_XLTBOF1 0000024¢ 
PASAT SECHENT = atte; NWASQ_ aL Toure 4 6 
DAPSRIRPIS = $0 0009%0 sy} “AC SBUF 0000026C¢ 
DAPSA-IMPOS = 00000080 NWAST~AUXBUF 000005E0 
ets ~ 90000028 NWAST"DAP 00000000 
SAP sans v spec $O0N0088 NWA$T_ INODEBUF 000004AC 
PAP Sy bear = 00000014 NWAST-ITM_ATTR 00000200 
PAP SV PeNobe = 00000002 NWAST-ITM-END 00000224 
SAP SV LENGTH = 00000001 NWASTTITMTL 00000200 
PAP SV HeGoLe = 00000012 NWAST“ITM~ HAXINDX 00000218 
PPS ST REA 00000000 NWAST-ITM-STR 0000020C 
OAPSUTBUREIT ~ 90000040 NWAST“NCBBUF 0000052¢ 
OOSDUTED. Gea 00000000 RG 01 NWAST NODEBUF 00000169 
seat Soir 0000002F RG 01 NWAST RCVBUF 000001A0 
NISEVT BRa §00000SE RG 01 NWAST-SCAN 00000100 
bh I a TA OOOOOOBE RG 01 NWAST TEMP 00000120 
NISCVT-BNETEXS 00000074 RG 01 NWAST-XLTBUF 1 900002AC 
TASS RCL AKBcL 0000011¢ NWAST-XLTBUF2 000003AC 
or I 000000C9 NWAST~XMTBUF 0000030 
WUASBFILESTS 00000C5 NWASV-LAST_MSG = 00000000 
are MAS 60500710 NWASW_BUIL 4 44 
NWASB_NETSTRSIZ hath ea NUASY DAPOUF S12 tee 
NUASE™ ' 00000C6 NWASW_DISPLAY 00000000 
NUASB-Ost S00000ce NWASW_FIL_OFF OOO000CE 
WUASDTREN 000000C7 NWASW~ JNLRABJOP 0000011E 
NwASB_RMS_RAC 4 8 

NWASC_BL B88 bo 

NWASK_BL si 1144 

NWASL—ALLXABADR 100 

MOAR BAAD ses 

MOAR -KEVRABADR 099 10¢ 

NWASLMSG_MASK 000000D4 


11 
NTOENCODE DAP MESSAGE ENCODE ROUTINES 15-SEP-1984 23:5 $f 
Psect synopsis “SEP-1984 16:20:44 


! Psect synopsis ! 


tease neasesenreeaaaa + 


AX/VMS Macro V04-00 Page i 
RMS .SRCINTOENCODE .MAR; 1 f 


PSECT name Allocation PSECT No. Attributes 

- ABS. 00000000 ( 0.) 89 ( 0.) NOPIC USR CON ABS LCL ote NOEXE NORD NOWRT NOVEC BYTE 
NHSNE TWORK OOO00A6 ( 166.) . €. Ber PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 0000800 ( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


gece ecos es cacaonsann re sse eed 


$owec eeeecescecccoccceccs$ 


Phase Page faults CPU Time Elapsed Time 
Initialization 39 0:00:00.1 00: 00: 1.42 
omg processing 105 0:00:00.6 0:00:06.06 
178 0:00:04.1 00:00:14.96 
Syabol table sort 0 00:00:00.31 BF 0 00-8 
Pass 2 79 Sb SE 00:00:03.74 
Symbol table output 14 00:00: a4 ee Bo 
Psect synopsis output 3 00:00:0 2; 00:00:00.34 
Cross-reference output Shs Be 6 00:00:00.00 
Assembler run totals 409 00:00:06.54 00:00:27.94 


The_working cS Limit was 1200 pages. 

18530 aeons 7 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 259 non-local and 11 local symbols. 
406 source fines were read in Pass 1, producing 13 object records in Pass 2. 

14 pages of virtual memory were used to define 13 macros. 


Teer eee ewe ee eww wn ee awe} 


Macro Library name Macros defined 
_$255$DUA28: (RMS .OBJJRMS.MLB; 1 5 
“$255$DUA28: SYSLIBJSTARLET. MLB; 2 4 

TOTALS (all Libraries) 9 


388 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS$:NTOENCODE/OBJ=OBJ$:NTOENCODE MSRC$:NTOENCODE/UPDATE=(ENHS:NTOENCODE) +LIB$:RMS/LIB 
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